home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_83 / heatseek.bas (.txt) next >
Atari STOS Basic  |  1987-04-21  |  73KB  |  143 lines
  1. 1 REM ~~dim~~
  2. 10 MODE
  3. 100 REM # scherm #
  4. 101 CLS
  5. 102 PALETTE
  6. 103 EXTENSION (Index #3) (Token 0x8a)
  7. 11 KEY
  8. 110 FOR
  9. 120 INK
  10. 13 HIDE
  11. 130 DRAW
  12. 135 NEXT
  13. 137 FOR
  14. 14 GOSUB
  15. 140 VARNAME
  16. 145 IF
  17. 15 GOSUB
  18. 150 FOR
  19. 160 VARNAME
  20. 170 INK
  21. 180 DRAW
  22. 190 INK
  23. 2 DIM
  24. 20 VARNAME
  25. 200 PLOT
  26. 205 INK
  27. 206 PLOT
  28. 210 NEXT
  29. 215 REM 
  30. 220 NEXT
  31. 230 FOR
  32. 235 FOR
  33. 240 FOR
  34. 245 FOR
  35. 25 VARNAME
  36. 250 FOR
  37. 255 PEN
  38. 256 PEN
  39. 260 PEN
  40. 265 PEN
  41. 30 EXTENSION (Index #2) (Token 0x86)
  42. 300 SPRITE
  43. 305 FLASH
  44. 306 FLASH
  45. 310 MOVE X
  46. 315 MOVE X
  47. 320 MOVE
  48. 321 VARNAME
  49. 329 REM ### game ####
  50. 330 IF
  51. 340 IF
  52. 350 IF
  53. 360 IF
  54. 361 IF
  55. 362 IF
  56. 365 IF
  57. 370 IF
  58. 40 REPEAT
  59. 400 WAIT VBL
  60. 41 CLS
  61. 410 IF
  62. 42 PEN
  63. 420 IF
  64. 43 PRINT
  65. 430 IF
  66. 44 CENTRE
  67. 440 IF
  68. 441 IF
  69. 442 IF
  70. 445 VARNAME
  71. 447 INK
  72. 45 PRINT
  73. 450 VARNAME
  74. 46 PEN
  75. 460 SPRITE
  76. 47 PRINT
  77. 48 PRINT
  78. 49 PRINT
  79. 49000 REM # palette from sprite-bank #
  80. 49010 VARNAME
  81. 49020 RETURN
  82. 499 RETURN
  83. 5 EXTENSION (Index #3) (Token 0xa4)
  84. 50 PRINT
  85. 500 WAIT VBL
  86. 50000 DATA
  87. 510 IF
  88. 520 IF
  89. 530 IF
  90. 54 PEN
  91. 540 IF
  92. 541 IF
  93. 542 IF
  94. 545 VARNAME
  95. 547 INK
  96. 55 INPUT
  97. 550 VARNAME
  98. 560 SPRITE
  99. 599 RETURN
  100. 6 CLICK
  101. 60 CURS
  102. 600 REM ~~ end ~~~
  103. 610 IF
  104. 611 IF
  105. 620 VARNAME
  106. 621 IF
  107. 622 IF
  108. 630 IF
  109. 635 IF
  110. 640 IF
  111. 641 IF
  112. 650 PEN
  113. 660 PEN
  114. 670 LOCATE
  115. 680 CLEAR KEY
  116. 690 REPEAT
  117. 699 GOTO
  118. 7 EXTENSION (Index #3) (Token 0x88)
  119. 700 PEN
  120. 710 RETURN
  121. 750 PEN
  122. 760 RETURN
  123. 800 REM game over
  124. 8000 VARNAME
  125. 801 CLICK
  126. 8020 RETURN
  127. 810 LOGIC
  128. 815 EXTENSION (Index #3) (Token 0x82)
  129. 820 EXTENSION (Index #0) (Token 0x80)
  130. 830 PEN
  131. 840 PEN
  132. 850 PEN
  133. 860 PEN
  134. 870 APPEAR
  135. 890 REPEAT
  136. 895 IF
  137. 896 IF
  138. 899 GOTO
  139. 9000 REM ~ init ~
  140. 9010 RESTORE
  141. 9020 FOR
  142. 9999 RETURN
  143.